|
1700
|
How do I layout expandable columns
With AxG2antt1
.BeginUpdate()
.ColumnAutoResize = False
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
.BackColorLevelHeader = .BackColor
With .Columns
With .Add("C0")
.ExpandColumns = "1,2"
.DisplayExpandButton = True
End With
.Add("C1")
.Add("C2")
.Add("C3")
With .Add("C4")
.ExpandColumns = "5,6"
.DisplayExpandButton = True
End With
.Add("C5")
With .Add("C6")
.ExpandColumns = "6,7"
.DisplayExpandButton = True
End With
.Add("C7")
End With
.EndUpdate()
.Columns.Item("C4").Expanded = False
End With
|
|
1699
|
Is it possible to display automatically the start/end margins of the bars
Dim h
With AxG2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 64
With .Bars.Item("Task")
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%1%>"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 16
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption) = "<%=%2%>"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign) = 18
End With
.ScrollTo(.FirstVisibleDate,1)
End With
.Columns.Add("Task")
.Columns.Add("ToolTip").Visible = False
With .Items
h = .AddItem("Item 1")
.CellValue(h,1) = "bar <b>a"
.AddBar(h,"Task",#12/29/2000#,#1/5/2001#)
h = .AddItem("Item 2")
.CellValue(h,1) = "bar <b>b"
.AddBar(h,"Task",#12/30/2000#,#1/6/2001#)
End With
.EndUpdate()
End With
|
|
1698
|
Is it possible to assign the bar's caption from a hidden column
Dim h
With AxG2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 64
With .Bars.Item("Task")
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%C1%>"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
End With
End With
.Columns.Add("Task")
.Columns.Add("ToolTip").Visible = False
With .Items
h = .AddItem("Item 1")
.CellValue(h,1) = "bar <b>a"
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#)
h = .AddItem("Item 2")
.CellValue(h,1) = "bar <b>b"
.AddBar(h,"Task",#1/3/2001#,#1/6/2001#)
End With
.EndUpdate()
End With
|
|
1697
|
Is it possible to assign the bar's tooltip from a hidden column
Dim h
With AxG2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 64
.Bars.Item("Task").Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "<%=%C1%>"
End With
.Columns.Add("Task")
.Columns.Add("ToolTip").Visible = False
With .Items
h = .AddItem("Item 1")
.CellValue(h,1) = "This is a bit of text that's shown when the cursor hovers the bar on item 1."
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#)
h = .AddItem("Item 2")
.CellValue(h,1) = "This is a bit of text that's shown when the cursor hovers the bar on item 2."
.AddBar(h,"Task",#1/3/2001#,#1/6/2001#)
End With
.EndUpdate()
End With
|
|
1696
|
I am using exBarFrameColor, but no black frame is shown. What could be wrong (method 2)
Dim h
With AxG2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 128
End With
.Columns.Add("Task")
With .Items
h = .AddItem("Default")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#)
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 65536
End With
.EndUpdate()
End With
|
|
1695
|
I am using exBarFrameColor, but no black frame is shown. What could be wrong (method 1)
With AxG2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 128
.Bars.Item("Task").Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 65536
End With
.Columns.Add("Task")
With .Items
.AddBar(.AddItem("Default"),"Task",#1/2/2001#,#1/5/2001#)
End With
.EndUpdate()
End With
|
|
1694
|
What I need is bars that have a solid color, but with a black frame. How can we do that
Dim h
With AxG2antt1
.BeginUpdate()
.DefaultItemHeight = 22
With .Chart
.FirstVisibleDate = #1/1/2001#
.LevelCount = 2
.PaneWidth(False) = 0
End With
With .Chart.Bars.Add("Frame")
.Pattern = EXG2ANTTLib.PatternEnum.exPatternSolid
.Color = RGB(0,255,0)
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 65536
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<font ;6><%=%C0%>"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
.Height = 15
End With
.Columns.Add("Frames")
With .Items
.AddBar(.AddItem("Default"),"Frame",#1/2/2001#,#1/7/2001#)
h = .AddItem("Inside Color")
.AddBar(h,"Frame",#1/2/2001#,#1/7/2001#)
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 255
h = .AddItem("Border Color")
.AddBar(h,"Frame",#1/2/2001#,#1/7/2001#)
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 33023
h = .AddItem("Inside/Border Color")
.AddBar(h,"Frame",#1/2/2001#,#1/7/2001#)
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 16711680
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 33023
h = .AddItem("Thick-Border")
.AddBar(h,"Frame",#1/2/2001#,#1/7/2001#)
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarPattern) = 4097
h = .AddItem("Thick-Border + Pattern")
.AddBar(h,"Frame",#1/2/2001#,#1/7/2001#)
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarPattern) = 4098
End With
.EndUpdate()
End With
|
|
1693
|
How can we drag bars from one item to the other
Dim h
With AxG2antt1
.BeginUpdate()
.DefaultItemHeight = 22
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
.Columns.Add("Members").Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
With .Chart
.FirstVisibleDate = #9/20/2006#
.AllowLinkBars = False
.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exNoCreateBar
.AllowSelectObjects = EXG2ANTTLib.SelectObjectsEnum.exNoSelectObjects
.LevelCount = 2
.PaneWidth(False) = 96
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
With .Bars.Item("Task")
.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsIncludeCaption Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.Height = 18
.Pattern = EXG2ANTTLib.PatternEnum.exPatternSolid
.Color = RGB(0,128,255)
End With
End With
With .Items
h = .AddItem("Member <b>1</b>")
.AddBar(h,"Task",#9/21/2006#,#9/23/2006#,"T102","<font ;6><fgcolor FFFFFF>Task <b>102</b>")
.ItemBar(h,"T102",EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMoveToAnother) = True
h = .AddItem("Member <b>2</b>")
h = .AddItem("Member <b>3</b>")
h = .AddItem("Member <b>4</b>")
.AddBar(h,"Task",#9/21/2006#,#9/23/2006#,"T103","<font ;6><fgcolor FFFFFF>Task <b>103</b>")
.ItemBar(h,"T103",EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMoveToAnother) = True
End With
.EndUpdate()
End With
|
|
1692
|
How can I use the exBarBackgroundExt option of the Items.ItemBar property
Dim h
With AxG2antt1
.BeginUpdate()
.DefaultItemHeight = 26
With .Chart
.NonworkingDays = 0
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 128
.Bars.Item("Task").Height = 22
End With
.Columns.Add("Column")
With .Items
h = .AddItem("Border-Top")
.AddBar(h,"Task",#1/3/2001#,#1/7/2001#)
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "top[3,back=RGB(0,0,0)]"
h = .AddItem("Border-Bottom")
.AddBar(h,"Task",#1/3/2001#,#1/7/2001#)
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "bottom[3,back=RGB(255,0,0)]"
h = .AddItem("Border-Left")
.AddBar(h,"Task",#1/3/2001#,#1/7/2001#)
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "left[6,back=RGB(0,255,0)]"
h = .AddItem("Border-Right")
.AddBar(h,"Task",#1/3/2001#,#1/7/2001#)
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "right[6,back=RGB(0,0,255)]"
h = .AddItem("Border-All")
.AddBar(h,"Task",#1/3/2001#,#1/7/2001#)
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "top[3,back=RGB(0,0,0)],right[3,back=RGB(0,0,255)],bottom[3,back=RGB(255,0,0)],left[3,back=RGB(0,255,0)],client"
h = .AddItem("Middle")
.AddBar(h,"Task",#1/3/2001#,#1/7/2001#)
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "none[(25%,25%,50%,50%),back=RGB(255,0,0)]"
h = .AddItem("Horizontal")
.AddBar(h,"Task",#1/3/2001#,#1/7/2001#)
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "none[(0,50%-2,100%,4),back=RGB(255,0,0)]"
h = .AddItem("Vertical")
.AddBar(h,"Task",#1/3/2001#,#1/7/2001#)
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "none[(50%-2,0,4,100%),back=RGB(255,0,0)]"
h = .AddItem("Mixt")
.AddBar(h,"Task",#1/3/2001#,#1/7/2001#)
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "[[patterncolor=RGB(255,0,0)](none[(4,4,100%-8,100%-8),pattern=0x006,patterncolor=RGB(255,0,0),frame=RGB(255,0,0),framethick])]"
h = .AddItem("Misc")
.AddBar(h,"Task",#1/3/2001#,#1/7/2001#)
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "bottom[50%,pattern=10,frame]"
h = .AddItem("Complex")
.AddBar(h,"Task",#1/3/2001#,#1/7/2001#)
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "left[10%](top[90%,back=RGB(0,0,0)]),top[30%,back=RGB(254,217,102)],client[back=RGB(91,156,212)]"
End With
.EndUpdate()
End With
|
|
1691
|
Does the title of the cell's tooltip supports HTML format
With AxG2antt1
.BeginUpdate()
.Chart.PaneWidth(True) = 0
With .Columns.Add("")
.Caption = ""
.HTMLCaption = "Column"
End With
With .Items
.CellToolTip(.AddItem("tooltip w/h different title"),0) = "<c><b><fgcolor=FF0000>Title</fgcolor></b><br>This is bit of text that's shown when the user hovers the cell. This shows the tit" & _
"le centered with a different color."
End With
.EndUpdate()
End With
|
|
1690
|
How do I specify a different title for the cell's tooltip
With AxG2antt1
.BeginUpdate()
.Chart.PaneWidth(True) = 0
With .Columns.Add("")
.Caption = "This is the title"
.HTMLCaption = "Column"
End With
With .Items
.CellToolTip(.AddItem("tooltip w/h different title"),0) = "This is bit of text that's shown when the user hovers the cell."
End With
.EndUpdate()
End With
|
|
1689
|
The cell's tooltip displays the column's caption in its title. How can I get ride of that
Dim h
With AxG2antt1
.BeginUpdate()
.Chart.PaneWidth(True) = 0
With .Columns
.Add("C1")
.Add("C2")
End With
With .Items
h = .AddItem("tooltip w/h caption")
.CellToolTip(h,0) = "This is bit of text that's shown when the user hovers the cell. This shows the column's caption in the title."
.CellValue(h,1) = "tooltip no caption"
.CellToolTip(h,1) = "This is bit of text that's shown when the user hovers the cell. This shows no column's caption in the title."
End With
With .Columns.Item("C2")
.HTMLCaption = .Caption
.Caption = ""
End With
.EndUpdate()
End With
|
|
1688
|
How can I programmatically show the column's filter
' RClick event - Fired when right mouse button is clicked
Private Sub AxG2antt1_RClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.RClick
' Columns(c).ShowFilter("-1,-1,128,128")
Dim c,hit,i
With AxG2antt1
i = .get_ItemFromPoint(-1,-1,c,hit)
End With
End Sub
With AxG2antt1
.BeginUpdate()
.ShowFocusRect = False
With .Columns.Add("Items ")
.DisplayFilterPattern = False
.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox
End With
With .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
End With
.EndUpdate()
End With
|
|
1687
|
I want to be able to click on one of the headers, and sort by other column. How can I do that (method 2)
' ColumnClick event - Fired after the user clicks on column's header.
Private Sub AxG2antt1_ColumnClick(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ColumnClickEvent) Handles AxG2antt1.ColumnClick
' Column.SortOrder = 1
With AxG2antt1
.SortOnClick = EXG2ANTTLib.SortOnClickEnum.exDefaultSort
.Columns.Item("Sort").SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
.SortOnClick = EXG2ANTTLib.SortOnClickEnum.exUserSort
End With
End Sub
With AxG2antt1
.BeginUpdate()
.SortOnClick = EXG2ANTTLib.SortOnClickEnum.exUserSort
.Columns.Add("Items")
.Columns.Add("Sort").Visible = False
With .Items
.CellValue(.AddItem("Item 1 (3)"),1) = 3
.CellValue(.AddItem("Item 2 (1)"),1) = 1
.CellValue(.AddItem("Item 3 (2)"),1) = 2
End With
.EndUpdate()
End With
|
|
1686
|
I want to be able to click on one of the headers, and sort by other column. How can I do that (method 1)
' ColumnClick event - Fired after the user clicks on column's header.
Private Sub AxG2antt1_ColumnClick(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ColumnClickEvent) Handles AxG2antt1.ColumnClick
' Column.SortOrder = 1
With AxG2antt1
.Items.SortChildren(0,"Sort",True)
End With
End Sub
With AxG2antt1
.BeginUpdate()
.SortOnClick = EXG2ANTTLib.SortOnClickEnum.exUserSort
.Columns.Add("Items")
.Columns.Add("Sort").Visible = False
With .Items
.CellValue(.AddItem("Item 1 (3)"),1) = 3
.CellValue(.AddItem("Item 2 (1)"),1) = 1
.CellValue(.AddItem("Item 3 (2)"),1) = 2
End With
.EndUpdate()
End With
|
|
1685
|
How do I get information about control's events
' Event event - Notifies the application once the control fires an event.
Private Sub AxG2antt1_Event(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_EventEvent) Handles AxG2antt1.Event
With AxG2antt1
Debug.Print( .ExecuteTemplate("EventParam(-2)") )
End With
End Sub
Dim h
With AxG2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 48
.AllowLinkBars = False
.Bars.Item("Task").OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsOffset
End With
.Columns.Add("Column")
With .Items
h = .AddItem("Item 1")
.EnableItem(h) = False
.ItemData(h) = -1
h = .AddItem("Item 2")
.ItemData(h) = 0
.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"B")
.ItemBar(h,"B",EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMoveToAnother) = True
.ItemData(.AddItem("Item 3")) = 0
h = .AddItem("Item 4")
.EnableItem(h) = False
.ItemData(h) = -1
End With
.EndUpdate()
End With
|
|
1684
|
How can I sort by two-columns, one by date and one by time
Dim h
With AxG2antt1
.BeginUpdate()
.SingleSort = False
With .Columns
.Add("Index").FormatColumn = "1 index ``"
.Add("Date").SortType = EXG2ANTTLib.SortTypeEnum.SortDate
With .Add("Time")
.SortType = EXG2ANTTLib.SortTypeEnum.SortTime
.FormatColumn = "time(value)"
End With
End With
With .Items
h = .AddItem(0)
.CellValue(h,1) = #1/1/2001#
.CellValue(h,2) = #1/1/2001 10:00:00 AM#
h = .AddItem(0)
.CellValue(h,1) = #12/31/2000#
.CellValue(h,2) = #1/1/2001 10:00:00 AM#
h = .AddItem(0)
.CellValue(h,1) = #1/1/2001#
.CellValue(h,2) = #1/1/2001 6:00:00 AM#
h = .AddItem(0)
.CellValue(h,1) = #12/31/2000#
.CellValue(h,2) = #1/1/2001 8:00:00 AM#
h = .AddItem(0)
.CellValue(h,1) = #1/1/2001#
.CellValue(h,2) = #1/1/2001 8:00:00 AM#
h = .AddItem(0)
.CellValue(h,1) = #12/31/2000#
.CellValue(h,2) = #1/1/2001 6:00:00 AM#
End With
.Layout = "multiplesort=""C1:1 C2:1"""
.EndUpdate()
End With
|
|
1683
|
I am trying to hide the non-working dates by using the AddNonworkingDate to specify custom non-working dates while NonworkingDays property is 0, but the non-working date is still shown. What can be wrong
With AxG2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #1/1/2008#
.PaneWidth(False) = 0
.LevelCount = 2
.ShowNonworkingUnits = False
.ShowNonworkingDates = False
.NonworkingDays = 128
.AddNonworkingDate(#1/7/2008#)
.AddNonworkingDate(#1/8/2008#)
.AddNonworkingDate(#1/9/2008#)
.AddNonworkingDate(#1/10/2008#)
End With
.EndUpdate()
End With
|
|
1682
|
How can I display the task's duration, in days, hours and minutes
With AxG2antt1
.BeginUpdate()
With .Columns.Add("Tasks")
.AllowSizing = False
.Width = 36
End With
With .Columns.Add("Duration")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 513
.FormatColumn = "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 " & _
"? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
End With
With .Chart
.PaneWidth(False) = 148
.FirstVisibleDate = #4/6/2009#
.LevelCount = 2
.UnitScale = EXG2ANTTLib.UnitEnum.exHour
.ResizeUnitScale = EXG2ANTTLib.UnitEnum.exMinute
End With
.Items.AllowCellValueToItemBar = True
With .Items
.AddBar(.AddItem("T1"),"Task",#4/6/2009 2:30:00 AM#,#4/6/2009 0:35:00 PM#)
.AddBar(.AddItem("T2"),"Task",#4/6/2009 9:00:00 AM#,#4/6/2009 10:10:00 AM#)
End With
.EndUpdate()
End With
|
|
1681
|
Does your control support working half-hour/minutes/seconds
Dim h
With AxG2antt1
.BeginUpdate()
With .Columns.Add("Tasks")
.AllowSizing = False
.Width = 36
End With
With .Columns.Add("Working")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 258
.FormatColumn = "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 " & _
"? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
End With
With .Chart
.FirstVisibleDate = #4/6/2009#
.PaneWidth(False) = 148
.LevelCount = 2
.UnitScale = EXG2ANTTLib.UnitEnum.exHour
.ResizeUnitScale = EXG2ANTTLib.UnitEnum.exMinute
.ResizeUnitCount = 15
.NonworkingHours = 15728767
.ShowNonworkingDates = False
.ShowNonworkingUnits = False
.ShowNonworkingHours = False
With .Bars
.Add("Task:Split").Shortcut = "Task"
.Item("Task").Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
End With
.AllowLinkBars = False
.UnitWidth = 26
End With
.Items.AllowCellValueToItemBar = True
With .Items
h = .AddItem("T1")
.ItemNonworkingUnits(h,False) = "(weekday(value) in (1,2,3,4,5) and (timeF(value)<""09:30"" or timeF(value)>=""17:30"")) or (weekday(value) in (0,6))"
.AddBar(h,"Task",#4/6/2009 10:00:00 AM#,#4/6/2009 0:30:00 PM#)
h = .AddItem("T2")
.ItemNonworkingUnits(h,False) = "(weekday(value) in (1,2,3,4,5) and (timeF(value)<""08:00"" or timeF(value)>=""16:00"")) or (weekday(value) in (0,6))"
.AddBar(h,"Task",#4/6/2009 9:30:00 AM#,#4/6/2009 10:45:00 AM#)
End With
.EndUpdate()
End With
|
|
1680
|
How can I programmatically move a bar to a specified date-time
Dim duration,h
With AxG2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 64
End With
.Columns.Add("Column")
With .Items
h = .AddItem("Original")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"key")
h = .AddItem("Moved")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"key")
duration = .ItemBar(h,"key",EXG2ANTTLib.ItemBarPropertyEnum.exBarDuration)
.AddBar(h,"Task",#1/5/2001#,#1/5/2001#,"key")
.ItemBar(h,"key",EXG2ANTTLib.ItemBarPropertyEnum.exBarDuration) = duration
End With
.EndUpdate()
End With
|
|
1679
|
How can I programmatically move a bar, with a specified ammount
Dim h
With AxG2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 64
End With
.Columns.Add("Column")
With .Items
h = .AddItem("Original")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"key")
h = .AddItem("Moved")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"key")
.ItemBar(h,"key",EXG2ANTTLib.ItemBarPropertyEnum.exBarMove) = 3
End With
.EndUpdate()
End With
|
|
1678
|
How can I programmatically move a bar to a specified date-time (auto-adjust spans over a non-working period)
Dim h,workingCount
With AxG2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 64
With .Bars
.Item("Task").Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
.Add("Task:Split").Shortcut = "Task"
End With
End With
.Columns.Add("Column")
With .Items
h = .AddItem("Original")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"key")
h = .AddItem("Moved")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"key")
workingCount = .ItemBar(h,"key",EXG2ANTTLib.ItemBarPropertyEnum.exBarWorkingCount)
.AddBar(h,"Task",#1/5/2001#,#1/5/2001#,"key")
.ItemBar(h,"key",EXG2ANTTLib.ItemBarPropertyEnum.exBarWorkingCount) = workingCount
End With
.EndUpdate()
End With
|
|
1677
|
How can I programmatically move a bar, with a specified ammount (auto-adjust spans over a non-working period)
Dim h
With AxG2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 64
With .Bars
.Item("Task").Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
.Add("Task:Split").Shortcut = "Task"
End With
End With
.Columns.Add("Column")
With .Items
h = .AddItem("Original")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"key")
h = .AddItem("Moved")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"key")
.ItemBar(h,"key",EXG2ANTTLib.ItemBarPropertyEnum.exBarMove) = 3
End With
.EndUpdate()
End With
|
|
1676
|
How can I show a secondary curve, line in the control's histogram
Dim h
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks")
.AntiAliasing = True
With .Chart
.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
.LevelCount = 2
.PaneWidth(False) = 40
.FirstVisibleDate = #6/9/2005#
.HistogramVisible = True
.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramNoGrouping Or EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
.HistogramHeight = 128
With .Bars.Item("Task")
.HistogramPattern = .Pattern
.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistOverload
.HistogramItems = 8
.HistogramRulerLinesColor = RGB(0,0,1)
End With
.Level(1).Label = "<font ;3><%d%>"
.UnitWidth = 9
With .Bars.Item("Summary")
.HistogramPattern = EXG2ANTTLib.PatternEnum.exRoundCurve
.HistogramColor = RGB(255,0,0)
.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistOverload
.HistogramItems = 8
.HistogramBorderSize = 1
End With
End With
With .Items
.LockedItemCount(EXG2ANTTLib.VAlignmentEnum.exTop) = 1
h = .LockedItem(EXG2ANTTLib.VAlignmentEnum.exTop,0)
.ItemHeight(h) = 0
.AddBar(h,"Summary",#1/1/2005#,#12/31/2005#,"1")
.ItemBar(h,"1",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = "(value mod 31) array (1,1,1,2,1,2.5,3,4,5,4,3,2,1,2,2,3,4.5,4,5,6,7,6,1,2,3,1,1,1,2,3,2,2)"
h = .AddItem("Task")
.AddBar(h,"Task",#6/10/2005#,#7/16/2005#,"")
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = "weekday(value) in (0,6) ? 0.25 : 2"
h = .AddItem("Task")
.AddBar(h,"Task",#6/18/2005#,#7/21/2005#,"")
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = "weekday(value) = 1 ? 2.5 : .5"
End With
.EndUpdate()
End With
|
|
1675
|
How can I add an owner-draw bar
' AfterDrawPart event - Occurs right after drawing the part of the control.
Private Sub AxG2antt1_AfterDrawPart(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AfterDrawPartEvent) Handles AxG2antt1.AfterDrawPart
With AxG2antt1
Debug.Print( "AfterDrawPart" )
Debug.Print( e.part )
Debug.Print( .Items.CellCaption(AxG2antt1.DrawPartItem,0) )
Debug.Print( AxG2antt1.DrawPartKey )
End With
End Sub
' BeforeDrawPart event - Occurs just before drawing a part of the control.
Private Sub AxG2antt1_BeforeDrawPart(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_BeforeDrawPartEvent) Handles AxG2antt1.BeforeDrawPart
With AxG2antt1
e.cancel = True
Debug.Print( "BeforeDrawPart" )
Debug.Print( e.part )
Debug.Print( .Items.CellCaption(AxG2antt1.DrawPartItem,0) )
Debug.Print( AxG2antt1.DrawPartKey )
End With
End Sub
With AxG2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 128
.LevelCount = 2
.Bars.Add("OwnerDraw")
End With
With .Items
.AddBar(.AddItem("Draw-Item-Bar-1"),"OwnerDraw",#1/2/2001#,#1/5/2001#,"K1")
.AddBar(.AddItem("Draw-Item-Bar-2"),"OwnerDraw",#1/6/2001#,#1/9/2001#,"K1")
.ItemBar(0,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected) = True
End With
.EndUpdate()
End With
|
|
1674
|
Is it possible to show a status left or right to the bar (method 2, exBarFrameColor, EBN)
Dim h
With AxG2antt1
.BeginUpdate()
With .VisualAppearance
.Add(2,"gBFLBCJwBAEHhEJAAChABP0IQAAYAQGKIaBoAKBQAGaAoDDYMQyQwAAxDOKsEwsACEIrjKCRShyCYZRrGUQyAKESRAGyTJBlKKodgOLYYSrFcgSIAsEhqGASRZGUBIJ" & _
"DEMI4AJPIwxNIDfyNGKWI6gOQKIoSCYlU7IED0fQNGxVF6XaYqYAIRDINQlVzXcQzPYEbRxCKLKppWqIfpuSIBgI=")
.Add(1,"CP:2 -8 -1 0 0")
.Add(3,"CP:2 0 -1 0 0")
End With
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 128
End With
With .Items
h = .AddItem("Red-Status-Outside")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 16777471
h = .AddItem("Blue-Status-Outside")
.AddBar(h,"Task",#1/3/2001#,#1/6/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 33488896
h = .AddItem("Red-Status-Inside")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 50331903
h = .AddItem("Blue-Status-Inside")
.AddBar(h,"Task",#1/3/2001#,#1/6/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 67043328
End With
.EndUpdate()
End With
|
|
1673
|
Is it possible to show a status left or right to the bar (method 1, exBarBackgroundExt)
Dim h
With AxG2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 128
End With
With .Items
h = .AddItem("Red-Left-Status-Inside")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "left[6,back=RGB(255,0,0)]"
h = .AddItem("Blue-Left-Status-Inside")
.AddBar(h,"Task",#1/3/2001#,#1/6/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "left[6,back=RGB(0,0,255)]"
h = .AddItem("Red-Right-Status-Inside")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "right[6,back=RGB(255,0,0)]"
h = .AddItem("Blue-Right-Status-Inside")
.AddBar(h,"Task",#1/3/2001#,#1/6/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "right[6,back=RGB(0,0,255)]"
End With
.EndUpdate()
End With
|
|
1672
|
How can I use the ItemBar(exBarBackgroundExt) property for a bar
Dim h
With AxG2antt1
.BeginUpdate()
.DefaultItemHeight = 31
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
.GridLineColor = RGB(224,224,224)
.BackColorLevelHeader = .BackColor
.Columns.Add("Task")
With .Chart
.LevelCount = 2
.Level(0).GridLineColor = AxG2antt1.GridLineColor
.Level(1).GridLineColor = AxG2antt1.GridLineColor
.ShowNonworkingDates = False
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 128
.Bars.Item("Task").Height = 21
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
End With
With .Items
h = .AddItem("Normal")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1")
h = .AddItem("Red-Frame-Inside")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "[frame=RGB(255,0,0),framethick]"
h = .AddItem("LR-Margins")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "left[4,back=RGB(0,255,0)],right[4,back=RGB(0,0,255)]"
h = .AddItem("LR-Margins (front)")
.AddBar(h,"Task",#1/2/2001#,#1/7/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "left[4,back=RGB(0,255,0)],right[4,back=RGB(0,0,255)]"
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExtFlags) = 2
h = .AddItem("LR-Margins (back)")
.AddBar(h,"Task",#1/2/2001#,#1/8/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "left[4,back=RGB(0,255,0)],right[4,back=RGB(0,0,255)]"
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExtFlags) = 3
h = .AddItem("TB-Margins")
.AddBar(h,"Task",#1/2/2001#,#1/9/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "top[4,back=RGB(255,0,0)],bottom[4,back=RGB(0,255,0)]"
h = .AddItem("TB-Margins")
.AddBar(h,"Task",#1/2/2001#,#1/10/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "top[2,back=RGB(255,0,0)],bottom[2,back=RGB(0,255,0)]"
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExtFlags) = 2
h = .AddItem("Caption(back)")
.AddBar(h,"Task",#1/2/2001#,#1/11/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "client(bottom[14,text=`<sha ;;0><font ;8>background`,align=0x11])"
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExtFlags) = 2
h = .AddItem("Pattern-Outside")
.AddBar(h,"Task",#1/2/2001#,#1/12/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "bottom[10%,pattern=7,frame]"
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExtFlags) = 2
h = .AddItem("Pattern-Inside")
.AddBar(h,"Task",#1/2/2001#,#1/13/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "bottom[7,pattern=3,frame]"
h = .AddItem("Pattern-Inside-Caption")
.AddBar(h,"Task",#1/2/2001#,#1/12/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "top[4](left[4],right[4],client),bottom[4](left[4],right[4],client),left[4],right[4],client(left[75%,text=`<fgcolor FFFFFF>75%`," & _
"align=0x11,pattern=0x001,frame=RGB(255,0,0)])"
h = .AddItem("Complex(back)")
.AddBar(h,"Task",#1/2/2001#,#1/11/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "top[30%,back=RGB(253,218,101)],client[back=RGB(91,157,210)],none[(0%,0%,10%,100%)](top[90%,back=RGB(0,0,0)])"
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExtFlags) = 3
h = .AddItem("Complex(inside)")
.AddBar(h,"Task",#1/2/2001#,#1/12/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "top[30%,back=RGB(253,218,101)],client[back=RGB(91,157,210)],none[(0%,0%,10%,100%)](top[90%,back=RGB(0,0,0)])"
End With
.EndUpdate()
End With
|
|
1671
|
How can display seconds
With AxG2antt1
With .Chart
.PaneWidth(False) = 96
.FirstVisibleDate = #1/17/2008#
.LevelCount = 2
.UnitScale = EXG2ANTTLib.UnitEnum.exSecond
.Level(0).Alignment = EXG2ANTTLib.AlignmentEnum.exHOutside Or EXG2ANTTLib.AlignmentEnum.CenterAlignment
.Level(1).FormatLabel = "(0:=sec(dvalue)) mod 10 ? 0=: : '<c><font ;6>sec<br><b>' + 0=:"
End With
.Columns.Add("Tasks")
With .Items
.AddBar(.AddItem("Task 1"),"Task",#1/17/2008 0:00:02 AM#,#1/17/2008 0:00:08 AM#)
.AddBar(.AddItem("Task 2"),"Task",#1/17/2008 0:00:05 AM#,#1/17/2008 0:00:15 AM#)
End With
End With
|
|
1670
|
How can I check if an item contains a bar
' SelectionChanged event - Fired after a new item has been selected.
Private Sub AxG2antt1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.SelectionChanged
With AxG2antt1
With .Items
Debug.Print( "Count of A: " )
Debug.Print( .ItemBar(.FocusItem,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
Debug.Print( "Count of B: " )
Debug.Print( .ItemBar(.FocusItem,"B",EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
Debug.Print( "Count of C: " )
Debug.Print( .ItemBar(.FocusItem,"C",EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
End With
End With
End Sub
With AxG2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.LevelCount = 2
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 48
.Bars.Item("Task").Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
End With
With .Items
.AddBar(.AddItem("Task"),"Task",#1/2/2001#,#1/4/2001#,"A","A")
.AddBar(.AddItem("Task"),"Task",#1/2/2001#,#1/4/2001#,"B","B")
.AddBar(.AddItem("Task"),"Task",#1/2/2001#,#1/4/2001#,"C","C")
End With
.EndUpdate()
End With
|
|
1669
|
How can I connect to a DBF file
Dim rs
With AxG2antt1
.BeginUpdate()
.ColumnAutoResize = False
.ContinueColumnScroll = False
rs = CreateObject("ADODB.Recordset")
With rs
.Open("Select * From foxcode.DBF","Provider=vfpoledb;Data Source=C:\Program Files\Microsoft Visual FoxPro 9\",3,3)
End With
.DataSource = rs
.Chart.PaneWidth(True) = 0
.EndUpdate()
End With
|
|
1668
|
How do I get the caption with no HTML format
Dim h
With AxG2antt1
.Columns.Add("Default")
With .Items
h = .AddItem("This is a bit of <b>HTML-formatted</b> text")
.CellValueFormat(h,0) = EXG2ANTTLib.ValueFormatEnum.exHTML
.AddItem(.CellCaption(h,0))
End With
End With
|
|
1667
|
How can I change the bar's color based on its length/duration
With AxG2antt1
.BeginUpdate()
With .Columns
.Add("Tasks")
With .Add("Duration")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 513
.Editor.EditType = EXG2ANTTLib.EditTypeEnum.SpinType
End With
End With
.Items.AllowCellValueToItemBar = True
With .Chart
.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
.LevelCount = 2
.FirstVisibleDate = #6/6/2005#
.PaneWidth(False) = 128
End With
With .ConditionalFormats.Add("%1 >= 4")
.ApplyTo = &H1
.Bold = True
.ApplyToBars = "Task"
.BarColor = RGB(255,0,0)
.ForeColor = .BarColor
End With
With .Items
.AddBar(.AddItem("Task"),"Task",#6/10/2005#,#6/13/2005#,"")
.AddBar(.AddItem("Task"),"Task",#6/11/2005#,#6/16/2005#,"")
.AddBar(.AddItem("Task"),"Task",#6/12/2005#,#6/15/2005#,"")
End With
.EndUpdate()
End With
|
|
1666
|
Is it possible to colorize the bars based on its starting/ending date
With AxG2antt1
.BeginUpdate()
.OnResizeControl = EXG2ANTTLib.OnResizeControlEnum.exDisableSplitter Or EXG2ANTTLib.OnResizeControlEnum.exResizeChart
With .Columns
.Add("Tasks")
With .Add("Start")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 1
.Visible = False
End With
End With
.Items.AllowCellValueToItemBar = True
With .Chart
.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
.LevelCount = 2
.FirstVisibleDate = #5/31/2005#
.PaneWidth(False) = 0
.AllowInsideZoom = True
.AllowResizeInsideZoom = False
.InsideZoomOnDblClick = False
With .DefaultInsideZoomFormat
.PatternChart = EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.PatternColorChart = RGB(255,0,0)
.ForeColor = .PatternColorChart
End With
With .InsideZooms
.SplitBaseLevel = False
.DefaultWidth = 18
.Add(#6/10/2005#).AllowInsideFormat = False
End With
End With
With .ConditionalFormats.Add("%1 <= #6/10/2005#")
.ApplyToBars = "Task"
.BarColor = RGB(255,0,0)
End With
With .Items
.AddBar(.AddItem("Task"),"Task",#6/10/2005#,#6/14/2005#,"")
.AddBar(.AddItem("Task"),"Task",#6/11/2005#,#6/15/2005#,"")
.AddBar(.AddItem("Task"),"Task",#6/12/2005#,#6/16/2005#,"")
End With
.EndUpdate()
End With
|
|
1665
|
How can I change the bar's color based on values on the columns
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
With AxG2antt1
With .Items
.AddBar(e.item,"Task",.CellValue(e.item,2),.CellValue(e.item,4))
End With
End With
End Sub
Dim rs
With AxG2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #8/3/1994#
.PaneWidth(False) = 256
.LevelCount = 2
.UnitScale = EXG2ANTTLib.UnitEnum.exDay
.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
End With
.ColumnAutoResize = False
.ContinueColumnScroll = False
rs = CreateObject("ADOR.Recordset")
With rs
.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
End With
.DataSource = rs
.Items.AllowCellValueToItemBar = True
.Columns.Item(2).Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 1
.Columns.Item(4).Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 2
With .ConditionalFormats
With .Add("1")
.ApplyTo = &H1
.Bold = True
.BackColor = RGB(250,250,250)
End With
With .Add("%1 = 5")
.ApplyToBars = "Task"
.BarColor = RGB(255,0,0)
.ForeColor = RGB(255,0,0)
.BarOverviewColor = RGB(255,0,0)
End With
With .Add("%1 = 3")
.ApplyToBars = "Task"
.BarColor = RGB(0,255,0)
.ForeColor = RGB(0,255,0)
.BarOverviewColor = RGB(0,255,0)
End With
End With
.EndUpdate()
End With
|
|
1664
|
How can I display / specify a fixed percent for the task in the histogram, no matter how long the task is
Dim h
With AxG2antt1
.BeginUpdate()
.DefaultItemHeight = 32
.Columns.Add("Tasks")
With .Chart
.UnitWidth = 32
.LevelCount = 2
.NonworkingDays = 0
.PaneWidth(False) = 64
.FirstVisibleDate = #6/20/2005#
.HistogramVisible = True
.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
.HistogramHeight = 64
With .Bars.Item("Task")
.HistogramPattern = .Pattern
.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistOverAllocation
.ShowHistogramValues = 1
End With
With .Bars.Copy("Task","TaskFixed")
.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistOverAllocationFixed Or EXG2ANTTLib.HistogramTypeEnum.exHistOverAllocation
.ShowHistogramValues = 1
End With
With .Bars.Copy("Task","TaskMultiply")
.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistOverAllocationMultiply Or EXG2ANTTLib.HistogramTypeEnum.exHistOverAllocation
.ShowHistogramValues = 1
End With
End With
With .Items
h = .AddItem("Allocation")
.AddBar(h,"Task",#6/21/2005#,#6/23/2005#,"A","Effort/Length")
.ItemBar(h,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = 0.25
.ItemBar(h,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarVAlignCaption) = 18
.AddBar(h,"TaskFixed",#6/24/2005#,#6/26/2005#,"B","Effort")
.ItemBar(h,"B",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = 0.25
.ItemBar(h,"B",EXG2ANTTLib.ItemBarPropertyEnum.exBarVAlignCaption) = 18
.AddBar(h,"TaskMultiply",#6/27/2005#,#6/29/2005#,"C","Effort*Length")
.ItemBar(h,"C",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = 0.25
.ItemBar(h,"C",EXG2ANTTLib.ItemBarPropertyEnum.exBarVAlignCaption) = 18
End With
.EndUpdate()
End With
|
|
1663
|
Does your control supports scrolling by touching the screen
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
With AxG2antt1
With .Items
.AddBar(e.item,"Task",.CellValue(e.item,2),.CellValue(e.item,4))
End With
End With
End Sub
Dim rs
With AxG2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #8/3/1994#
.PaneWidth(False) = 256
.LevelCount = 2
.UnitScale = EXG2ANTTLib.UnitEnum.exDay
.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
End With
.ColumnAutoResize = False
.ContinueColumnScroll = False
rs = CreateObject("ADOR.Recordset")
With rs
.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
End With
.DataSource = rs
.Items.AllowCellValueToItemBar = True
.Columns.Item(2).Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 1
.Columns.Item(4).Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 2
.ContinueColumnScroll = True
.ScrollBySingleLine = True
.Chart.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exNoCreateBar
.AutoDrag = EXG2ANTTLib.AutoDragEnum.exAutoDragScrollOnShortTouch Or EXG2ANTTLib.AutoDragEnum.exAutoDragScroll
.EndUpdate()
End With
|
|
1662
|
Is it possible to use build-in zoom-functionality to zoom time periods spanning to just some hours of one day (zoom-onfly)
Dim h
With AxG2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.UnitScale = EXG2ANTTLib.UnitEnum.exDay
.PaneWidth(False) = 0
.LevelCount = 2
.FirstVisibleDate = #1/1/2001#
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
.AllowZoomOnFly = EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFly
.ResizeUnitScale = EXG2ANTTLib.UnitEnum.exHour
.ResizeUnitCount = 4
.Label(EXG2ANTTLib.UnitEnum.exHour) = "<font ;5><b><%h%><br><%AM/PM%></b></font><||>4<||>65536"
.ZoomOnFlyCaption = "<br><c><b><font ;12><%=%C0%>"
End With
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/7/2001#,#1/10/2001#,"T1","T1")
.AddBar(h,"Task",#1/11/2001#,#1/14/2001#,"T3","T3")
h = .AddItem()
.AddBar(h,"",#1/15/2001#,#1/15/2001#,"","Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.")
.SelectableItem(h) = False
End With
.EndUpdate()
End With
|
|
1661
|
Is it possible to use build-in zoom-functionality to zoom time periods spanning to just some hours of one day (inside-zoom)
With AxG2antt1
.BeginUpdate()
With .Chart
.UnitScale = EXG2ANTTLib.UnitEnum.exDay
.PaneWidth(False) = 0
.LevelCount = 2
.FirstVisibleDate = #1/1/2008#
With .DefaultInsideZoomFormat
.InsideLabel = "<%hh%>"
.InsideUnit = EXG2ANTTLib.UnitEnum.exHour
.InsideCount = 8
End With
.AllowInsideZoom = True
With .InsideZooms
.Add(#1/4/2008#)
End With
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
End With
.EndUpdate()
End With
|
|
1660
|
How can I export the control's content to a PDF document (method 1)
With AxG2antt1
.BeginUpdate()
.MarkSearchColumn = False
With .Columns
.Add("Tasks")
With .Add("Start")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 1
.Editor.EditType = EXG2ANTTLib.EditTypeEnum.SpinType
End With
With .Add("End")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 2
.Editor.EditType = EXG2ANTTLib.EditTypeEnum.SpinType
End With
End With
With .Chart
.PaneWidth(False) = 196
.LevelCount = 2
.ShowEmptyBars = 1
.FirstVisibleDate = #1/1/2009#
End With
With .Items
.AllowCellValueToItemBar = True
.AddBar(.AddItem("Task 1"),"Task",#1/2/2009#,#1/7/2009#)
.AddBar(.AddItem("Task 2"),"Task",#1/4/2009#,#1/9/2009#)
End With
With CreateObject("Exontrol.Print")
.PrintExt = AxG2antt1.GetOcx()
.CopyTo("c:/temp/xtest.pdf")
End With
Debug.Print( "Look for C:\Temp\xtest.pdf file." )
.EndUpdate()
End With
|
|
1659
|
How can I export the control's content to a PDF document (method 2)
Dim var_CopyTo
With AxG2antt1
.BeginUpdate()
.MarkSearchColumn = False
With .Columns
.Add("Tasks")
With .Add("Start")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 1
.Editor.EditType = EXG2ANTTLib.EditTypeEnum.SpinType
End With
With .Add("End")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 2
.Editor.EditType = EXG2ANTTLib.EditTypeEnum.SpinType
End With
End With
With .Chart
.PaneWidth(False) = 196
.LevelCount = 2
.ShowEmptyBars = 1
.FirstVisibleDate = #1/1/2009#
End With
With .Items
.AllowCellValueToItemBar = True
.AddBar(.AddItem("Task 1"),"Task",#1/2/2009#,#1/7/2009#)
.AddBar(.AddItem("Task 2"),"Task",#1/4/2009#,#1/9/2009#)
End With
var_CopyTo = .get_CopyTo("c:/temp/xtest.pdf")
Debug.Print( "Look for C:\Temp\xtest.pdf file." )
.EndUpdate()
End With
|
|
1658
|
Today date is shown, if we use the Column.FormatColumn and Editor.Option(exDateAllowNullDate) properties. What can be done
With AxG2antt1
.BeginUpdate()
With .Columns.Add("Date")
.FormatColumn = "len(value) ? ( (longdate(date(value)) left 3) + ' ' + day(date(value)) + '/' + month(date(value)) + '/' + (year(date(value)) ri" & _
"ght 2) ) : '' )"
With .Editor
.EditType = EXG2ANTTLib.EditTypeEnum.DateType
.Option(EXG2ANTTLib.EditorOptionEnum.exDateAllowNullDate) = True
End With
End With
With .Items
.AddItem(#5/12/2012#)
.AddItem()
.AddItem(#5/14/2012#)
End With
.EndUpdate()
End With
|
|
1657
|
Is there a syntax for conditional formatting of items, based on CellState/CellStateChange
' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
With AxG2antt1
With .Items
.CellValue(e.item,2) = .CellState(e.item,0)
End With
End With
End Sub
Dim h,var_ConditionalFormat
With AxG2antt1
.BeginUpdate()
.ShowFocusRect = False
.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
var_ConditionalFormat = .ConditionalFormats.Add("%2 != 0")
With var_ConditionalFormat
.Bold = True
.ForeColor = RGB(255,0,0)
.ApplyTo = EXG2ANTTLib.FormatApplyToEnum.exFormatToItems
End With
With .Columns.Add("")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.Width = 16
.AllowSizing = False
End With
.Columns.Add("Information")
.Columns.Add("Hidden").Visible = False
With .Items
.CellValue(.AddItem(""),1) = "This is a bit of text associated"
h = .AddItem("")
.CellValue(h,1) = "This is a bit of text associated"
.CellState(h,0) = 1
.CellValue(.AddItem(""),1) = "This is a bit of text associated"
End With
.EndUpdate()
End With
|
|
1656
|
How can I hide the items/grid section of the control
With AxG2antt1
.BeginUpdate()
.OnResizeControl = EXG2ANTTLib.OnResizeControlEnum.exDisableSplitter Or EXG2ANTTLib.OnResizeControlEnum.exResizeChart
.Columns.Add("Tasks")
With .Chart
.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
.LevelCount = 2
.FirstVisibleDate = #6/9/2005#
.HistogramVisible = True
.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
.HistogramHeight = 128
With .Bars.Item("Task")
.HistogramPattern = .Pattern
End With
.PaneWidth(False) = 0
End With
With .Items
.AddBar(.AddItem("Task"),"Task",#6/10/2005#,#6/14/2005#,"")
.AddBar(.AddItem("Task"),"Task",#6/11/2005#,#6/15/2005#,"")
.AddBar(.AddItem("Task"),"Task",#6/12/2005#,#6/16/2005#,"")
End With
.EndUpdate()
End With
|
|
1655
|
How can I draw an extra line which could indicate deadline for my tasks
Dim h
With AxG2antt1
.BeginUpdate()
.DefaultItemHeight = 24
With .VisualAppearance
.Add(2,"gBFLBCJwBAEHhEJAAChABLMIQAAYAQGKIaBoAKBQAGaAoDDQOQ4QwAAxjAKUEwsACEIrjKCYVgOHYYRrIIEvZAAMIlSbCMoxcAsSQSf6YJBmKL4fiWMobRCMQyiLLMd" & _
"wiGoYJ4hGgKChqI43RZNErURRkEwCgIA=")
.Add(1,"CP:2 0 -4 0 4")
End With
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 128
End With
With .Items
h = .AddItem("Default")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 16777471
.AddBar(h,"Task",#1/9/2001#,#1/14/2001#,"K2")
.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 33488896
End With
.EndUpdate()
End With
|
|
1654
|
How can I mark/highlight a zone in the control's histogram
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
.LevelCount = 2
.PaneWidth(False) = 40
.FirstVisibleDate = #6/9/2005#
.HistogramVisible = True
.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
.HistogramHeight = 128
With .Bars.Item("Task")
.HistogramPattern = .Pattern
.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistOverload
.HistogramItems = 12
.HistogramRulerLinesColor = RGB(0,0,1)
End With
End With
With .Items
.AddBar(.AddItem("Task"),"Task",#6/10/2005#,#6/14/2005#,"")
.AddBar(.AddItem("Task"),"Task",#6/11/2005#,#6/15/2005#,"")
.AddBar(.AddItem("Task"),"Task",#6/12/2005#,#6/16/2005#,"")
End With
.Chart.MarkTimeZone("zone",#6/13/2005#,#6/14/2005#,15790320,";;;;histogram;1")
.EndUpdate()
End With
|
|
1653
|
How can I get the min/max values from the histogram
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxG2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent) Handles AxG2antt1.MouseMoveEvent
With AxG2antt1
With .Chart
Debug.Print( "Value" )
Debug.Print( .HistogramValue(.DateFromPoint(-1,-1)) )
Debug.Print( "MIN" )
Debug.Print( .HistogramValue("min") )
Debug.Print( "MAX" )
Debug.Print( .HistogramValue("max") )
End With
End With
End Sub
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
.LevelCount = 2
.PaneWidth(False) = 40
.FirstVisibleDate = #6/9/2005#
.HistogramVisible = True
.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
.HistogramHeight = 128
With .Bars.Item("Task")
.HistogramPattern = .Pattern
.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistOverload
.HistogramItems = 12
.HistogramRulerLinesColor = RGB(0,0,1)
End With
End With
With .Items
.AddBar(.AddItem("Task"),"Task",#6/10/2005#,#6/14/2005#,"")
.AddBar(.AddItem("Task"),"Task",#6/11/2005#,#6/15/2005#,"")
.AddBar(.AddItem("Task"),"Task",#6/12/2005#,#6/16/2005#,"")
End With
.EndUpdate()
End With
|
|
1652
|
How can I assign different efforts(expression) to the same bar
Dim h
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
.LevelCount = 2
.PaneWidth(False) = 40
.FirstVisibleDate = #6/9/2005#
.HistogramVisible = True
.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
.HistogramHeight = 128
With .Bars.Item("Task")
.HistogramPattern = .Pattern
.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistOverload
.HistogramItems = 12
.HistogramRulerLinesColor = RGB(0,0,1)
End With
.Level(1).Label = "<font ;3><%d%>"
.UnitWidth = 9
End With
With .Items
h = .AddItem("Task")
.AddBar(h,"Task",#6/10/2005#,#6/14/2005#,"")
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = "weekday(value) in (0,6) ? 0.25 : 2"
h = .AddItem("Task")
.AddBar(h,"Task",#6/18/2005#,#6/21/2005#,"")
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = "weekday(value) = 1 ? 2 : 1"
h = .AddItem("Task")
.AddBar(h,"Task",#6/27/2005#,#7/9/2005#,"")
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = "month (value) = 7 ? 1 : 0"
h = .AddItem("Task")
.AddBar(h,"Task",#6/27/2005#,#7/5/2005#,"")
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = "(month(value)=month(value+1)) ? 1 : 0"
h = .AddItem("Task")
.AddBar(h,"Task",#6/22/2005#,#6/26/2005#,"")
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = "int(value-start) ? 1 : 2"
h = .AddItem("Task")
.AddBar(h,"Task",#7/10/2005#,#7/14/2005#,"")
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = "(int(value-start) and int(end-value) != 0 ) ? 1 : 2"
h = .AddItem("Task")
.AddBar(h,"Task",#7/15/2005#,#7/22/2005#,"")
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = "(int(value-start)+1) mod 2 ? 1 : 0"
End With
.EndUpdate()
End With
|
|
1651
|
How can I prevent showing the representation of the bar on the week days, nonworking part
Dim h
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.LevelCount = 2
.PaneWidth(False) = 40
.FirstVisibleDate = #6/9/2005#
.HistogramVisible = True
.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
.HistogramHeight = 128
With .Bars.Item("Task")
.HistogramPattern = .Pattern
.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistOverload
.HistogramItems = 12
.HistogramRulerLinesColor = RGB(0,0,1)
End With
End With
With .Items
h = .AddItem("Task")
.AddBar(h,"Task",#6/10/2005#,#6/21/2005#,"")
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = "weekday(value) in (0,6) ? 0 : 2"
End With
.EndUpdate()
End With
|
|
1650
|
How do I programatically focus a cell
' FocusChanged event - Occurs when a cell gets the focus.
Private Sub AxG2antt1_FocusChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.FocusChanged
With AxG2antt1
With .Items
.CellBackColor(.FocusItem,AxG2antt1.FocusColumnIndex) = RGB(255,0,0)
End With
End With
End Sub
With AxG2antt1
.BeginUpdate()
.SelForeColor = .ForeColor
.SelBackColor = .BackColor
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
With .Columns
.Add("Column1")
.Add("Column2")
End With
With .Items
.CellValue(.AddItem("Cell 1.1"),1) = "Cell 1.2"
.CellValue(.AddItem("Cell 2.1"),1) = "Cell 2.2"
End With
With .Items
.SelectItem(.ItemByIndex(1)) = True
End With
.FocusColumnIndex = 1
.EndUpdate()
End With
|
|
1649
|
How do I programatically focus a cell (excrd)
' FocusChanged event - Occurs when a cell gets the focus.
Private Sub AxG2antt1_FocusChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.FocusChanged
With AxG2antt1
With .Items
.CellBackColor(.FocusItem,AxG2antt1.FocusColumnIndex) = RGB(255,0,0)
End With
End With
End Sub
Dim h
With AxG2antt1
.BeginUpdate()
.SelForeColor = .ForeColor
.SelBackColor = .BackColor
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
.DefaultItemHeight = 36
With .Columns
.Add("Column1").Visible = False
.Add("Column2").Visible = False
.Add("Column3").Visible = False
With .Add("FormatLevel")
.FormatLevel = "(0/1),2"
.Def(EXG2ANTTLib.DefColumnEnum.exCellFormatLevel) = .FormatLevel
End With
End With
With .Items
h = .AddItem("Cell 1.1")
.CellValue(h,1) = "Cell 1.2"
.CellValue(h,2) = "Cell 1.3"
h = .AddItem("Cell 2.1")
.CellValue(h,1) = "Cell 2.2"
.CellValue(h,2) = "Cell 2.3"
End With
With .Items
.SelectItem(.ItemByIndex(1)) = True
End With
.FocusColumnIndex = 2
.EndUpdate()
End With
|
|
1648
|
How can I get task's user data ( exBarData ) when user double clicks the bar
' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub AxG2antt1_DblClick(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_DblClickEvent) Handles AxG2antt1.DblClick
Dim c,hit,item,key
With AxG2antt1
item = .get_ItemFromPoint(-1,-1,c,hit)
key = .Chart.BarFromPoint(-1,-1)
Debug.Print( .Items.ItemBar(item,key,EXG2ANTTLib.ItemBarPropertyEnum.exBarData) )
End With
End Sub
Dim h
With AxG2antt1
.BeginUpdate()
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.PaneWidth(False) = 48
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"")
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarData) = "this is a bit of extra data associated with task 1"
h = .AddItem("Task 2")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"")
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarData) = "this is a bit of extra data associated with task 2"
End With
.EndUpdate()
End With
|
|
1647
|
How do I get arranged the levels to display, weeks, days and so on
With AxG2antt1
.BeginUpdate()
With .Chart
.UnitWidth = 24
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 0
.LevelCount = 2
.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
With .Level(0)
.Alignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
.Label = "<b><Font Tahoma;7><%m3%>, <%yyyy%></b><b>, <Font Tahoma;7>Wk <%ww%>"
.Unit = EXG2ANTTLib.UnitEnum.exWeek
.DrawGridLines = True
End With
With .Level(1)
.Alignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
.Label = "<Font Tahoma;7><%d%>"
.Unit = EXG2ANTTLib.UnitEnum.exDay
End With
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
End With
.EndUpdate()
End With
|
|
1646
|
How can I add a task and a milestone to the same item
Dim h
With AxG2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Milestone",#1/2/2001#,#1/2/2001#,"MKey")
.AddBar(h,"Task",#1/3/2001#,#1/7/2001#)
End With
End With
|
|
1645
|
How can I change the visual appearance of the buttons on the control's overview part
With AxG2antt1
.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAADhABdQFg6AADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDENQwSSMMJwSKYYBiASEYJASQZUhmHIDTbIEBxf" & _
"IMIRLE6PZbmEYYfgeNY6TQCcIgVD0ExhAZ2Q4EQAKRpOFY/DBQNLgAKNCQ3LaQY7BaKgZouTYDVrVNSVFC0IBkGoSbauCIJHrGCZ1RBYMI0VDNRwHJiMbRtSyqXjGJ4p" & _
"SrAcq0FAgYRHI6jZxnGL5chqPqGVjMNZ1bQuKwzT0Ld5wTYsdydBK1MIkTKKaoORZgRpYUI6FAeSgBWyPcCqPSoDrKdo4XLdYwbeAFcSPD6+NBhG7tXm/NarNTgTB6DB" & _
"thsGJbgYYw9AQVxBoOch2hEbh+nAARYkQdZ7CMPYGH+FxmlqbJ5lqDAdjMC5AmIW54hwaBvA4IQ8D+T8IFscgenAAZMHiEgWiWdRZlSAAhAkFAGq6dAdEcIYVF4QJKCA" & _
"HQDBCBJYGUGQNhCEIhiSCJaGAYQWBsIYmEEFgJAGQ42CyC4iliPgygsT4olSXg3g2Qwwk0MpMiMLJIg8Y54niTYOmPPJMDMDIonSSU7jMJJbDaTYjlYUoMmMCRWFQAAl" & _
"EkZgtDgTgjgCJQpEoIgkgkIQHnIAB7CACARnIaIaiaGYuG6GxmhmFB7CGSICAyHwoAmQxQlQNIlikWgthYIwaAYVQvAuQpsg0IxIhKTIzCwToTiiaYACkChGhKJJpEOQ" & _
"oWC+C5imyCgiggYpUzMZ5Yj6AIfg6UpcjgLYInIPILhOTYaEIUg9EoItfCGCByAiCV2lIKILCGK4qnKO4YggWpQgIJxJmIaJhDgDgKECaIykkUhUhILQLEKRh9iiYpzC" & _
"SSQxmgcgkm2NppAKbI8C4RoBiQYgSgSMQQEEEIDjECBDA8LorjKa47EQMQSm4DpEhEKBDBeRgBGqMQnmkA5in4JAJAINoEC6JR4jyaQ6E6AhEhIIxNBMRJPiQCYyHCGA" & _
"UgUMQwEgEhhkEOBHBOBJxCMHJHjGXB/CKSBxlENwaj1qgsEwERICIDB/iQDgjgiYYvE2cx8l2KIinoEI5CYSYiFqEAz0mMBZBbwIkEsEN+gMSpSHSTITEqSoEFyGBHCo" & _
"SoihqEAsgsIo8ikKhKGiVJ6AADwTkicQlAkUhElA+Z4VUHpHGuRA8lMdI9DscJc8r5QQAaIYsGUOpOjoOwHCEJAUgBh8B1EAAcHIzg5gPCGNgdQfRPhnGiLINhhQEDCB" & _
"cGUDYphxjLHkNgfwTARhiHEBYWAVxpI1HQDcDjthiAADoKcCgJgbs7FyG4LQagBBgE0CMOYOxLhtGY/AcAegNgTHIPkHISAHADEQNYOA2BwAHEQHABwQxMDbCQEscoEB" & _
"AAgEOD0V4cR0jyGCPAPwHAvh0EAOIHIDRfA/EaGMfYfguAACiBQIg/xWAbH0F8J4bxSD6G8MUMo7Q9ieHuI8eA0gLjfG2PUPQnwvhvHsPsGABxhD8E+AMbgfhVDJH2L8" & _
"U48wAjbEGPwPo7x8j4F4FccwHAhhiEgBQEQhAnCDGgHwBonxiAZD+G8Lo/hHj3H8PELIiBwgOFCNQHAqQAhYBWAUIARAECgHyKkIIqAIgGGCLgUIFAhB5CQAcFAGgcEH" & _
"HKBwUYkAdiHDgOaAIKBigYCCFAFQhBzChAWKEOYzwDhCEwFMBQNxwD3C8CsPgHQhANEuA4Uw+gdhHDAOwBogRYAzFuGAQIEgQAzCSGUAIbAXAFCiKIGghhBCQAeAFIgD" & _
"gwjMByEAAYXg1hiEwFgBYAQugAGIPsTodgnDSBgMca4LhqChCgD4CIYgYBDmcI4GIxgUCYAm1oPIjwgjmFQMYWA1gNCiBUqcII6gegUEAHwB4oRwhzEGLge4GAOC6HUA" & _
"cMIsAbCGDqLYHYVBACTAkIIIAYigCIGcBQCArQKiiFQFERQUQhDMAOBgcIWAggUBGIMfAVAHhCBwEgBAMg+jbFqCcHYLxvg4D2A8QI3AziMHiJoUgFhACyCwIINofwHi" & _
"JDAJUKw2B2ARGEEAIwCxIh2BaNQQA/ROBRGoFYQ48B/AeEGEt99lQOgDFgGcAtFgdgHEANIMAhAIDKAygkQAEAAjxBeIoCI7QfjUEEEwDIIgWBFEQHUSANxsAqEEEUdw" & _
"lA4iJCSFYEwhBsCXE0KoIAexnj4DoDkEwaBmgYCGAwMADAkCFCMMYAQOgMhQEIHsaIVQQDXFOOgRtwAUguAcAUU1iw1CWA6OwdIOQFBxCgCkDgeBribBmIgP4KQiAAB+" & _
"KoAg2QNiDDoG0BQyQzg+EGOAWAFgRC4DsEURQYAdhWFKAoKAVQAB/AcHEaAORiioFqBYMWFATCZEsBsIYcA0gMGCJwGAhg4DQAwKsDAYQGzZBkAcSA8gODEBEGQVIQha" & _
"jUEeeYKY1QIDrBCIAEg0xIAwEgBNkAAADUTA6B4MQEwv0UEGLAUgzhf04AKGEg4BhYD2B0MUAABApAAvqI8WAqAdDGGwJsEIXwWDtE0AAA4fhmDZCmJMMwbBkgBIC")
With .Chart
.PaneWidth(False) = 0
.LevelCount = 2
.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.AllowOverviewZoom = EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom
.Label(EXG2ANTTLib.UnitEnum.exSecond) = ""
.Label(EXG2ANTTLib.UnitEnum.exYear) = ""
End With
.Chart.OverviewSelBackColor = &H1ffff00
End With
|
|
1644
|
Is there a way to show the Start and End dates in mm-dd-yyyy format
With AxG2antt1
.BeginUpdate()
.MarkSearchColumn = False
.Items.AllowCellValueToItemBar = True
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/25/2000#
.PaneWidth(False) = 196
End With
With .Columns.Add("Start")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 1
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey) = "K1"
.FormatColumn = "(0 array (0:=(shortdateF(value) split `/`))) + `-` + (1 array (=:0) ) + `-` + (2 array (=:0) )"
End With
With .Columns.Add("End")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 2
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey) = "K1"
.FormatColumn = "shortdateF(value) replace `/` with `-`"
End With
With .Items
.AddBar(.AddItem(),"Task",#1/1/2001#,#1/5/2001#,"K1")
.AddBar(.AddItem(),"Task",#1/2/2001#,#1/6/2001#,"K1")
End With
.EndUpdate()
End With
|
|
1643
|
Is there a way to show the Start and End dates in dd-mm-yyyy format
With AxG2antt1
.BeginUpdate()
.MarkSearchColumn = False
.Items.AllowCellValueToItemBar = True
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/25/2000#
.PaneWidth(False) = 196
End With
With .Columns.Add("Start")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 1
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey) = "K1"
.FormatColumn = "(1 array (0:=(shortdateF(value) split `/`))) + `-` + (0 array (=:0) ) + `-` + (2 array (=:0) )"
End With
With .Columns.Add("End")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 2
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey) = "K1"
.FormatColumn = "(1 array (0:=(shortdateF(value) split `/`))) + `-` + (0 array (=:0) ) + `-` + (2 array (=:0) )"
End With
With .Items
.AddBar(.AddItem(),"Task",#1/1/2001#,#1/5/2001#,"K1")
.AddBar(.AddItem(),"Task",#1/2/2001#,#1/6/2001#,"K1")
End With
.EndUpdate()
End With
|
|
1642
|
If we have bars with dark color, we use white font/color. But if the bars are too small for the caption, you cant read it. What can we do
Dim h
With AxG2antt1
.BeginUpdate()
.Columns.Add("Task")
.Chart.FirstVisibleDate = #12/29/2000#
.Chart.PaneWidth(False) = 48
With .Chart.Bars.Item("Task")
.Pattern = EXG2ANTTLib.PatternEnum.exPatternSolid
.Height = 17
End With
With .Chart.Bars.Item("Progress")
.Pattern = EXG2ANTTLib.PatternEnum.exPatternSolid
.Height = 17
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeSolid
.Color = RGB(0,0,255)
End With
With .Chart.Bars.Add("Task%Progress")
.Pattern = EXG2ANTTLib.PatternEnum.exPatternSolid
.Height = 17
.Shortcut = "Percent"
End With
.DefaultItemHeight = 21
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"")
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 4112616
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<fgcolor=FFFFFF><sha 0;;0>Pause"
.AddBar(h,"Task",#1/9/2001#,#1/12/2001#,"white")
.ItemBar(h,"white",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 4112616
.ItemBar(h,"white",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<fgcolor=FFFFFF>Pause"
h = .AddItem("Task 2")
.AddBar(h,"Task",#1/3/2001#,#1/4/2001#,"")
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 2017557
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<fgcolor=FFFFFF><sha 0;;0>Production"
.AddBar(h,"Task",#1/10/2001#,#1/11/2001#,"white")
.ItemBar(h,"white",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 2017557
.ItemBar(h,"white",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<fgcolor=FFFFFF>Production"
h = .AddItem("Task 3")
.AddBar(h,"Percent",#1/3/2001#,#1/4/2001#,"")
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarPercent) = 0.5
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 2017557
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<fgcolor=FFFFFF><sha 0;;0>Pausing"
.AddBar(h,"Percent",#1/10/2001#,#1/11/2001#,"white")
.ItemBar(h,"white",EXG2ANTTLib.ItemBarPropertyEnum.exBarPercent) = 0.5
.ItemBar(h,"white",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 2017557
.ItemBar(h,"white",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<fgcolor=FFFFFF>Pausing"
h = .AddItem("Task 4")
.AddBar(h,"Task",#1/3/2001#,#1/4/2001#,"")
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 8421504
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<fgcolor=FFFFFF><sha 0;;0>Planned downtime"
.AddBar(h,"Task",#1/10/2001#,#1/11/2001#,"white")
.ItemBar(h,"white",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 8421504
.ItemBar(h,"white",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<fgcolor=FFFFFF>Planned downtime"
End With
.EndUpdate()
End With
|
|
1641
|
How do I programmatically exclude items from the filter
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Items")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox
End With
With .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
.AddItem("Item 4")
End With
With .Columns.Item(0)
.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilterExclude Or EXG2ANTTLib.FilterTypeEnum.exFilter
.Filter = "Item 1|Item 4"
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
1640
|
How do I show in histogram, more values for a single task
' BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
Private Sub AxG2antt1_BeforeExpandItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_BeforeExpandItemEvent) Handles AxG2antt1.BeforeExpandItem
With AxG2antt1
e.cancel = True
End With
End Sub
Dim h,hR
With AxG2antt1
.BeginUpdate()
.SingleSel = True
.ExpandOnDblClick = False
With .Chart
.LevelCount = 2
.AllowLinkBars = False
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
.FirstVisibleDate = #12/29/2000#
.HistogramVisible = True
.HistogramHeight = 167
.PaneWidth(False) = 128
.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramNoGrouping Or EXG2ANTTLib.HistogramViewEnum.exHistogramUnlockedItems
With .Bars.Item("Task")
.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistCumulative
.HistogramItems = 6
.HistogramPattern = EXG2ANTTLib.PatternEnum.exPatternSolid
.HistogramItems = -40000
.HistogramCriticalValue = 100000
.HistogramRulerLinesColor = RGB(128,128,128)
.HistogramCumulativeColors = 3
End With
.ShowNonworkingDates = False
End With
.Columns.Add("Costs").Visible = False
.Columns.Add("Tasks").Visible = True
With .Items
h = .AddItem("Estimated")
.CellValue(h,1) = "Task 1"
.AddBar(h,"Task",#1/1/2001#,#1/10/2001#)
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = 8000
hR = .InsertItem(h,Nothing,"Actual")
.AddBar(hR,"Task",#1/1/2001#,#1/10/2001#)
.ItemBar(hR,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = 9000
.GroupBars(h,"",True,hR,"",True)
.GroupBars(h,"",False,hR,"",False)
hR = .InsertItem(h,Nothing,"Cost")
.AddBar(hR,"Task",#1/1/2001#,#1/10/2001#)
.ItemBar(hR,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = 200
.GroupBars(h,"",True,hR,"",True)
.GroupBars(h,"",False,hR,"",False)
h = .AddItem("Estimated")
.CellValue(h,1) = "Task 2"
.AddBar(h,"Task",#1/9/2001#,#1/15/2001#)
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = 7000
hR = .InsertItem(h,Nothing,"Actual")
.AddBar(hR,"Task",#1/9/2001#,#1/15/2001#)
.ItemBar(hR,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = 8000
.GroupBars(h,"",True,hR,"",True)
.GroupBars(h,"",False,hR,"",False)
hR = .InsertItem(h,Nothing,"Cost")
.AddBar(hR,"Task",#1/9/2001#,#1/15/2001#)
.ItemBar(hR,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = 150
.GroupBars(h,"",True,hR,"",True)
.GroupBars(h,"",False,hR,"",False)
End With
.EndUpdate()
End With
|
|
1639
|
How can I align the caption of the bar
Dim h
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #12/25/2000#
.PaneWidth(False) = 48
End With
With .Items
h = .AddItem("Task")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K","exBarHAlignCaption = 0")
.ItemBar(h,"K",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 0
h = .AddItem("Task")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K","exBarHAlignCaption = 1")
.ItemBar(h,"K",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 1
h = .AddItem("Task")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K","exBarHAlignCaption = 2")
.ItemBar(h,"K",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 2
h = .AddItem("Task")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K","Clip 3")
.ItemBar(h,"K",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 3
h = .AddItem("Task")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K","Clip 4")
.ItemBar(h,"K",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 4
h = .AddItem("Task")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K","Clip 5")
.ItemBar(h,"K",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 5
h = .AddItem("Task")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K","Outside Left 16")
.ItemBar(h,"K",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 16
h = .AddItem("Task")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K","Outside Right 18")
.ItemBar(h,"K",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
h = .AddItem("Task")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K","Outside Center 17")
.ItemBar(h,"K",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 17
End With
.EndUpdate()
End With
|
|
1638
|
How can I change the drop down filter background color
Dim h
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.set_Background(EXG2ANTTLib.BackgroundPartEnum.exBackColorFilter,16777215)
With .Columns.Add("Items")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterList = EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc Or EXG2ANTTLib.FilterListEnum.exLeafItems
End With
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
h = .AddItem("Root 2")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.InsertItem(h,Nothing,"Child 3")
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
1637
|
How can I arrange the columns using CRD (eXCRD ) strings (Sample 2)
Dim h
With AxG2antt1
.BeginUpdate()
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
.DefaultItemHeight = 36
With .Columns
With .Add("C1")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.Width = 18
.AllowSizing = False
End With
With .Add("C2")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.Width = 18
End With
.Add("Column1").Visible = False
.Add("Column2").Visible = False
.Add("Column3").Visible = False
With .Add("FormatLevel")
.FormatLevel = "18;""Info""[a=17]/(2/3,4)"
.Def(EXG2ANTTLib.DefColumnEnum.exCellFormatLevel) = "2/3,4"
End With
End With
With .Chart
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
.FirstVisibleDate = #6/22/2014#
End With
With .Items
h = .AddItem("Cell 1.1")
.CellValue(h,1) = "Cell 1.2"
.CellValue(h,2) = "Cell 1.3"
.AddBar(h,"Task",#6/23/2014#,#6/25/2014#)
h = .AddItem("Cell 2.1")
.CellValue(h,1) = "Cell 2.2"
.CellValue(h,2) = "Cell 2.3"
.AddBar(h,"Task",#6/26/2014#,#6/28/2014#)
End With
.EndUpdate()
End With
|
|
1636
|
How can I arrange the columns using CRD (eXCRD ) strings (Sample 1)
Dim h
With AxG2antt1
.BeginUpdate()
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
.DefaultItemHeight = 36
With .Columns
.Add("Column1").Visible = False
.Add("Column2").Visible = False
.Add("Column3").Visible = False
With .Add("FormatLevel")
.FormatLevel = "(0/1),2"
.Def(EXG2ANTTLib.DefColumnEnum.exCellFormatLevel) = .FormatLevel
End With
End With
With .Chart
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
.FirstVisibleDate = #6/22/2014#
End With
With .Items
h = .AddItem("Cell 1.1")
.CellValue(h,1) = "Cell 1.2"
.CellValue(h,2) = "Cell 1.3"
.AddBar(h,"Task",#6/23/2014#,#6/25/2014#)
h = .AddItem("Cell 2.1")
.CellValue(h,1) = "Cell 2.2"
.CellValue(h,2) = "Cell 2.3"
.AddBar(h,"Task",#6/26/2014#,#6/28/2014#)
End With
.EndUpdate()
End With
|
|
1635
|
How do I display the histogram for filtered items only
With AxG2antt1
.BeginUpdate()
.SingleSel = False
With .Chart
.FirstVisibleDate = #1/1/2001#
.LevelCount = 2
.HistogramVisible = True
.HistogramHeight = 32
.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramFilteredItems
.Bars.Item("Task").HistogramPattern = EXG2ANTTLib.PatternEnum.exPatternBDiagonal
End With
With .Columns.Add("Column")
.DisplayFilterButton = True
.Filter = "Item 1"
.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
End With
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 2"),"Task",#1/3/2001#,#1/7/2001#)
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
1634
|
How can I use no scroll bars for touch-screens
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
With AxG2antt1
With .Items
.AddBar(e.item,"Task",.CellValue(e.item,2),.CellValue(e.item,4))
End With
End With
End Sub
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxG2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent) Handles AxG2antt1.MouseMoveEvent
With AxG2antt1
.ShowToolTip("<font ;6><sha ;;0><off -4>Tip</off></sha></font> If the cursor hovers bars, click and wait for a second to start scrolling.")
End With
End Sub
Dim rs
With AxG2antt1
.BeginUpdate()
With .Chart
.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exNoCreateBar
.FirstVisibleDate = #8/3/1994#
.PaneWidth(False) = 256
.LevelCount = 2
.UnitScale = EXG2ANTTLib.UnitEnum.exDay
.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
End With
.ColumnAutoResize = False
.ContinueColumnScroll = False
rs = CreateObject("ADOR.Recordset")
With rs
.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
End With
.DataSource = rs
.AutoDrag = EXG2ANTTLib.AutoDragEnum.exAutoDragScroll
.ScrollWidth = 4
.ScrollHeight = 4
.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHSLeft,12632256)
.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHSRight,12632256)
.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHSBack,14737632)
.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHSThumb,8421504)
.set_Background(EXG2ANTTLib.BackgroundPartEnum.exVSBack,14737632)
.set_Background(EXG2ANTTLib.BackgroundPartEnum.exVSDown,12632256)
.set_Background(EXG2ANTTLib.BackgroundPartEnum.exVSThumb,8421504)
.set_Background(EXG2ANTTLib.BackgroundPartEnum.exVSUp,12632256)
.ScrollButtonWidth = 0
.ScrollButtonHeight = 0
.EndUpdate()
End With
|
|
1633
|
How can I display values in the histogram legend
Dim h1
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Columns.Add("Effort")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 21
.Editor.EditType = EXG2ANTTLib.EditTypeEnum.SpinType
End With
With .Chart
.LevelCount = 2
.NonworkingDays = 0
.PaneWidth(False) = 96
.FirstVisibleDate = #6/20/2005#
.HistogramVisible = True
.HistogramHeight = 128
.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
With .Bars.Item("Task")
.HistogramPattern = .Pattern
.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistOverload
.HistogramCriticalValue = 3
.HistogramItems = -7
.HistogramGridLinesColor = RGB(192,192,192)
.HistogramRulerLinesColor = RGB(0,0,1)
End With
End With
With .Items
.AllowCellValueToItemBar = True
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#6/21/2005#,#6/23/2005#)
.CellValue(h1,1) = 4
h1 = .AddItem("Task 2")
.AddBar(h1,"Task",#6/24/2005#,#6/26/2005#)
.CellValue(h1,1) = 3
h1 = .AddItem("Task 3")
.AddBar(h1,"Task",#6/27/2005#,#6/29/2005#)
.CellValue(h1,1) = 2
h1 = .AddItem("Task 4")
.AddBar(h1,"Task",#6/30/2005#,#7/2/2005#)
.CellValue(h1,1) = 1
End With
.EndUpdate()
End With
|
|
1632
|
I am using AllowGroupBy property and calling the Column.SortOrder property groups by that column. Is it possible to prevent that, so I have a similar behavior like I click the column's header rather than dragging it to the control's GroupBy bar
With AxG2antt1
With .Columns
.Add("First")
.Add("Second")
.Add("Third")
End With
.SortBarVisible = True
.SingleSort = False
.AllowGroupBy = True
.Layout = "SingleSort = ""C0:1"";MultipleSort = ""C1:2 C2:1"""
End With
|
|
1631
|
Calling programatically the Column.SortOrder property adds the column to the sort bar. Is it possible to prevent that, so I have a similar behavior like I click the column's header rather than dragging it to the control's Sort bar
With AxG2antt1
With .Columns
.Add("First")
.Add("Second")
.Add("Third")
End With
.SortBarVisible = True
.SingleSort = False
.Layout = "SingleSort = ""C0:1"""
End With
|
|
1630
|
How can I specify different working parts for different items
Dim h1,h2
With AxG2antt1
.BeginUpdate()
With .Columns
.Add("Tasks")
With .Add("Working")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 258
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey) = "A"
.FormatColumn = "(0:=round(value*24)) != 0 ? =:0 : ''"
End With
With .Add("NonWorking")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 259
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey) = "A"
.FormatColumn = "(0:=round(value*24)) != 0 ? =:0 : ''"
End With
End With
With .Chart
.PaneWidth(False) = 78
.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.FirstVisibleDate = #6/20/2005#
.DrawLevelSeparator = EXG2ANTTLib.LevelLineEnum.exLevelNoLine
.LevelCount = 3
.Level(1).DrawGridLines = False
.AllowInsideZoom = True
.DrawDateTicker = True
.DateTickerLabel = "<%mmm%> <%d%><br><b><%hh%>:<%nn%></b>"
.MarkSelectDateColor = &H7ffff8ee
With .DefaultInsideZoomFormat
.OwnerLabel = "<%mmm%> <%d%>"
.BackColor = RGB(238,248,255)
.BackColorChart = .BackColor
.InsideCount = 4
.InsideLabel = "<b><%hh%></b>"
End With
.InsideZooms.Add(#6/22/2005#)
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exVLines
.Bars.Item("Split").Color = RGB(255,0,0)
With .Bars.Add("Task:Split")
.Color = RGB(255,0,0)
.Pattern = EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.Shortcut = "Task"
End With
End With
With .Items
.AllowCellValueToItemBar = True
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#6/22/2005 8:00:00 AM#,#6/28/2005#,"A")
.ItemBar(h1,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
.ItemNonworkingUnits(h1,False) = "weekday(value) in (1,2)"
.ItemNonworkingUnits(h1,True) = "weekday(value) in (1,2) or (hour(value)<8 or hour(value)>=16 )"
h2 = .AddItem("Task 1")
.AddBar(h2,"Task",#6/22/2005 4:00:00 AM#,#6/29/2005 0:00:00 PM#,"A")
.ItemBar(h2,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
.ItemNonworkingUnits(h2,False) = "weekday(value) in (1,2)"
.ItemNonworkingUnits(h2,True) = "weekday(value) in (1, 2) or (hour(value)<4 or hour(value)>=12 )"
End With
.EndUpdate()
End With
|
|
1629
|
How can I define the default bar's foreground color
With AxG2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 48
With .Bars.Item("Task")
.Height = 15
.Pattern = EXG2ANTTLib.PatternEnum.exPatternSolid
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarForeColor) = 16777215
End With
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/6/2001#,"K1","bar A")
.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/6/2001#,"K2","bar B")
.AddBar(.AddItem("Task 3"),"Task",#1/2/2001#,#1/6/2001#,"K3","bar C")
End With
.EndUpdate()
End With
|
|
1628
|
How can I print the selected items only
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
With AxG2antt1
With .Items
.AddBar(e.item,"Task",.CellValue(e.item,2),.CellValue(e.item,4))
End With
End With
End Sub
Dim rs
With AxG2antt1
.BeginUpdate()
.SingleSel = False
.ColumnAutoResize = False
.ContinueColumnScroll = False
rs = CreateObject("ADOR.Recordset")
With rs
.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
End With
.DataSource = rs
.Chart.FirstVisibleDate = #8/4/1994#
With .Items
.SelectItem(.ItemByIndex(0)) = True
.SelectItem(.ItemByIndex(2)) = True
.SelectItem(.ItemByIndex(4)) = True
End With
.EndUpdate()
With CreateObject("Exontrol.Print")
.Options = "Print = Selection"
.PrintExt = AxG2antt1.GetOcx()
.Preview()
End With
End With
|
|
1627
|
How can I sort the columns to be displayed on the columns floating bar
With AxG2antt1
.ColumnAutoResize = False
With .Columns
.Add("City").Visible = False
.Add("Start").Visible = False
.Add("End").Visible = False
End With
.ColumnsFloatBarVisible = EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
.ColumnsFloatBarSortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
End With
|
|
1626
|
How can I add a vertical padding for my cells
With AxG2antt1
.BeginUpdate()
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
With .Columns.Add("Padding")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.Def(EXG2ANTTLib.DefColumnEnum.exCellSingleLine) = False
.Def(EXG2ANTTLib.DefColumnEnum.exCellPaddingLeft) = 6
.Def(EXG2ANTTLib.DefColumnEnum.exCellPaddingRight) = 6
.Def(EXG2ANTTLib.DefColumnEnum.exCellPaddingTop) = 6
.Def(EXG2ANTTLib.DefColumnEnum.exCellPaddingBottom) = 6
End With
With .Items
.AddItem("padding")
.AddItem("padding")
End With
.EndUpdate()
End With
|
|
1625
|
Trying to fill the second columns. How can I do that
Dim h
With AxG2antt1
.BeginUpdate()
With .Columns
.Add("Column 1")
.Add("Column 2")
.Add("Column 3")
End With
With .Items
h = .AddItem("SubItem 1.1")
.CellValue(h,1) = "SubItem 1.2"
.CellValue(h,2) = "SubItem 1.3"
h = .AddItem("SubItem 2.1")
.CellValue(h,1) = "SubItem 2.2"
.CellValue(h,2) = "SubItem 2.3"
End With
.EndUpdate()
End With
|
|
1624
|
How can I specify a different background color for item, in chart or list panels
Dim h,hC
With AxG2antt1
.Columns.Add("Default")
With .Items
h = .AddItem("Root")
hC = .InsertItem(h,Nothing,"Child 1")
.ItemBackColor(hC) = RGB(255,0,0)
AxG2antt1.Chart.ItemBackColor(hC) = RGB(0,255,0)
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
End With
End With
|
|
1623
|
Is it possible to specify a status part for each bar
Dim h
With AxG2antt1
.BeginUpdate()
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.PaneWidth(False) = 64
.Debug = True
.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAChABL8IQAAYAQGKIaBwAKBQAGaAoDDQNgyQwAAxwdBMKgBBCLIxhEYobgmGIaRjHcQjEKoSxHEqIRpGCRoJiqLIZAJIEZRZAcaQvGSQYRASCRN" & _
"DEOA0TDAY4jPD4aQiGIbRjjeL5YjiNo2UxTNRQCEB")
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"A")
.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"B1")
.AddBar(h,"Task",#1/8/2001#,#1/17/2001#,"B2")
.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K3")
.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K4")
.ItemBar(0,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 255
.ItemBar(0,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 16777216
End With
.EndUpdate()
End With
|
|
1622
|
How can I change the the focus rectangle
With AxG2antt1
.BeginUpdate()
.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExG2antt\sample\EBN\hoverinsert.ebn")
.set_Background(EXG2ANTTLib.BackgroundPartEnum.exShowFocusRect,16777216)
With .Columns.Add("Check")
.Def(EXG2ANTTLib.DefColumnEnum.exCellPaddingLeft) = 2
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
End With
.SelForeColor = .ForeColor
.SelBackColor = .BackColor
.DefaultItemHeight = 22
.ShowFocusRect = True
With .Items
.AddItem("")
.AddItem("")
End With
.EndUpdate()
End With
|
|
1621
|
Can each cell have their own dropdown lists that contain "different list item values" for each cell, not predefined for the entire column
Dim h
With AxG2antt1
.BeginUpdate()
With .Columns.Add("Column/Cell-Same").Editor
.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
.AddItem(0,"Zero")
.AddItem(1,"One")
.AddItem(2,"Two")
End With
With .Columns.Add("Column/Cell-Different").Editor
.EditType = EXG2ANTTLib.EditTypeEnum.EditType
End With
With .Items
.AddItem()
h = .AddItem(0)
With .CellEditor(h,1)
.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
.AddItem(3,"Three")
.AddItem(4,"Four")
End With
.CellValue(h,1) = 3
.AddItem()
h = .AddItem(0)
With .CellEditor(h,1)
.EditType = EXG2ANTTLib.EditTypeEnum.CheckListType
.AddItem(1,"Single")
.AddItem(2,"Double")
End With
.CellValue(h,1) = 3
End With
.EndUpdate()
End With
|
|
1620
|
How can I specify just a few fonts in a FontType editor
With AxG2antt1
.BeginUpdate()
.DefaultItemHeight = 22
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
With .Columns.Add("Fonts").Editor
.EditType = EXG2ANTTLib.EditTypeEnum.FontType
.ClearItems()
.AddItem(0,"Calibri")
.AddItem(1,"Arial")
.AddItem(2,"Rockwell")
.AddItem(3,"Tahoma")
.SortItems(True)
.DropDownRows = 4
End With
With .Items
.AddItem("Tahoma")
End With
.EndUpdate()
End With
|
|
1619
|
How can I show only the working-hours in chart and histogram panels
Dim h
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks")
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
With .Chart
.PaneWidth(False) = 40
.FirstVisibleDate = #6/20/2005#
.HistogramVisible = True
.HistogramHeight = 64
.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
.LevelCount = 3
.NonworkingHours = 16253183
With .Bars.Item("Task")
.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistOverAllocation
.HistogramPattern = .Pattern
End With
.ShowNonworkingDates = False
.ShowNonworkingUnits = False
.ShowNonworkingHours = False
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
.UnitScale = EXG2ANTTLib.UnitEnum.exHour
.UnitWidth = 4
.ResizeUnitScale = .UnitScale
End With
With .Items
h = .AddItem("Task A")
.AddBar(h,"Task",#6/23/2005 11:00:00 AM#,#6/23/2005 0:00:00 PM#)
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = "0.0416666"
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
h = .AddItem("Task B")
.AddBar(h,"Task",#6/23/2005 0:00:00 PM#,#6/23/2005 4:00:00 PM#)
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = "0.0416666"
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
End With
.EndUpdate()
End With
|
|
1618
|
How do you embed HTML options into the anchor click string
' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub AxG2antt1_AnchorClick(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AnchorClickEvent) Handles AxG2antt1.AnchorClick
With AxG2antt1
Debug.Print( e.anchorID )
Debug.Print( e.options )
End With
End Sub
With AxG2antt1
.BeginUpdate()
With .Columns
.Add("Car").Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
End With
With .Items
.AddItem("<a mazda_1;options for 1>Mazda <b>1</b></a>")
.AddItem("<a mazda_2;options for 2>Mazda <b>2</b></a>")
.AddItem("<a mazda_3;options for 3a>Mazda <b>3.a</b></a>")
.AddItem("<a mazda_3;options for 3b>Mazda <b>3.b</b></a>")
End With
.EndUpdate()
End With
|
|
1617
|
How do I add a checkbox column (method 2)
' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
With AxG2antt1
Debug.Print( "CheckBox Changed:" )
Debug.Print( .Items.CellState(e.item,e.colIndex) )
End With
End Sub
With AxG2antt1
.BeginUpdate()
.Columns.Add("Check").Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
With .Items
.CellState(.AddItem("Check 1"),0) = 0
.CellState(.AddItem("Check 2"),0) = 1
.CellState(.AddItem("Check 3"),0) = 0
.CellState(.AddItem("Check 4"),0) = 1
End With
.EndUpdate()
End With
|
|
1616
|
How do I add a checkbox column (method 1)
' Change event - Occurs when the user changes the cell's content.
Private Sub AxG2antt1_Change(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ChangeEvent) Handles AxG2antt1.Change
With AxG2antt1
Debug.Print( "CheckBox Changed:" )
Debug.Print( e.newValue )
End With
End Sub
With AxG2antt1
.BeginUpdate()
With .Columns.Add("Check")
With .Editor
.EditType = EXG2ANTTLib.EditTypeEnum.CheckValueType
.Option(EXG2ANTTLib.EditorOptionEnum.exCheckValue2) = 1
End With
End With
With .Items
.AddItem(0)
.AddItem(1)
.AddItem(0)
.AddItem(1)
End With
.EndUpdate()
End With
|
|
1615
|
How do I change the progress bar's appearance
Dim var_Editor
With AxG2antt1
With .VisualAppearance
.Add(1,"c:\exontrol\images\normal.ebn")
.Add(2,"c:\exontrol\images\pushed.ebn")
End With
var_Editor = .Columns.Add("Progress").Editor
With var_Editor
.EditType = EXG2ANTTLib.EditTypeEnum.ProgressBarType
.Option(EXG2ANTTLib.EditorOptionEnum.exProgressBarBackColor) = 16777216
.Option(EXG2ANTTLib.EditorOptionEnum.exProgressBarMarkTicker) = 33554432
End With
.Items.AddItem(33)
End With
|
|
1614
|
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 3)
With AxG2antt1
.BeginUpdate()
.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BVEIQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQCWIAzATGYBRfIUEgjBM6ExwG78e" & _
"gBHp/ZpkACIJJAaRjHQdJxGKKMQB9DIhCZpeKhWgkKIJBzOEyBRC4ERBGqNGrsIgLEqWZpnWhaNpWXYTLyBN64LhuK46g53O6wLxvK6hEr2dJ/YBcIAOfghf4NQ7EMRx" & _
"LC8Mw3BDvYDkOAABAIgI=")
.GetOcx().SelBackColor = &H1fffffe
.SelForeColor = RGB(0,0,0)
.GetOcx().SelBackColor = &H1000000
.ShowFocusRect = False
.Columns.Add("Items")
.DefaultItemHeight = 22
With .Items
.ItemBackColor(.AddItem("red")) = RGB(255,0,0)
.ItemBackColor(.AddItem("blue")) = RGB(0,0,255)
.ItemBackColor(.AddItem("green")) = RGB(0,255,0)
End With
.EndUpdate()
End With
|
|
1613
|
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 2)
With AxG2antt1
.BeginUpdate()
.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
.DefaultItemHeight = 22
.ShowFocusRect = False
.Columns.Add("Items")
With .Items
.ItemBackColor(.AddItem("red")) = RGB(255,0,0)
.ItemBackColor(.AddItem("blue")) = RGB(0,0,255)
.ItemBackColor(.AddItem("green")) = RGB(0,255,0)
End With
.EndUpdate()
End With
|
|
1612
|
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 1)
With AxG2antt1
.BeginUpdate()
.SelBackColor = .BackColor
.SelForeColor = .ForeColor
.DefaultItemHeight = 22
.ShowFocusRect = True
.Columns.Add("Items")
With .Items
.ItemBackColor(.AddItem("red")) = RGB(255,0,0)
.ItemBackColor(.AddItem("blue")) = RGB(0,0,255)
.ItemBackColor(.AddItem("green")) = RGB(0,255,0)
End With
.EndUpdate()
End With
|
|
1611
|
The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that
' BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
Private Sub AxG2antt1_BeforeExpandItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_BeforeExpandItemEvent) Handles AxG2antt1.BeforeExpandItem
With AxG2antt1
Debug.Print( "BeforeExpandItem" )
Debug.Print( e.item )
.Items.InsertItem(e.item,Nothing,"new child")
End With
End Sub
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns
With .Add("Items")
.DisplayFilterButton = True
.FilterList = EXG2ANTTLib.FilterListEnum.exRootItems
End With
End With
With .Items
.ItemHasChildren(.InsertItem(Nothing,Nothing,"Group 1")) = True
.ItemHasChildren(.InsertItem(Nothing,Nothing,"Group 2")) = True
End With
.EndUpdate()
End With
|
|
1610
|
How can identify when I clicked Hour, Month, or Year of the time-scale overview
' OverviewZoom event - Occurs once the user selects a new time scale unit in the overview zoom area.
Private Sub AxG2antt1_OverviewZoom(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.OverviewZoom
With AxG2antt1
Debug.Print( "UnitScale: " )
Debug.Print( .Chart.UnitScale )
End With
End Sub
With AxG2antt1
With .Chart
.PaneWidth(False) = 128
.LevelCount = 2
.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.AllowOverviewZoom = EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom
End With
End With
|
|
1609
|
How can define a minimum and maximum in a column SpinType
With AxG2antt1
With .Columns
With .Add("SpinType between 5 and 150").Editor
.EditType = EXG2ANTTLib.EditTypeEnum.SliderType
.Numeric = EXG2ANTTLib.NumericEnum.exInteger
.Option(EXG2ANTTLib.EditorOptionEnum.exSliderWidth) = 0
.Option(EXG2ANTTLib.EditorOptionEnum.exSliderMin) = 5
.Option(EXG2ANTTLib.EditorOptionEnum.exSliderMax) = 150
End With
End With
.Items.AddItem(50)
End With
|
|
1608
|
How I can change the title of the time-scale overview. (Example: Month by 'Mes', Day by 'Dia')
With AxG2antt1
With .Chart
.PaneWidth(False) = 128
.LevelCount = 2
.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.AllowOverviewZoom = EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom
.OverviewZoomCaption = "Aņo|||Mes|||Dia|||"
.Label(EXG2ANTTLib.UnitEnum.exHalfYear) = ""
.Label(EXG2ANTTLib.UnitEnum.exQuarterYear) = ""
.Label(EXG2ANTTLib.UnitEnum.exThirdMonth) = ""
.Label(EXG2ANTTLib.UnitEnum.exWeek) = ""
.Label(EXG2ANTTLib.UnitEnum.exHour) = ""
.Label(EXG2ANTTLib.UnitEnum.exMinute) = ""
.Label(EXG2ANTTLib.UnitEnum.exSecond) = ""
End With
End With
|
|
1607
|
Is it possible to set a fixed wide for the Items List Arrea, so that when changing the Form.width, the Items List Arrea be constant and therefor changing the Chart Area-wide
With AxG2antt1
.OnResizeControl = EXG2ANTTLib.OnResizeControlEnum.exResizeChart
End With
|
|
1606
|
How can I clear the colors for all bars at once
Dim h
With AxG2antt1
.BeginUpdate()
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.PaneWidth(False) = 64
.Debug = True
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"A")
.ItemBar(h,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 65280
.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"B1")
.AddBar(h,"Task",#1/8/2001#,#1/17/2001#,"B2")
.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K3")
.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K4")
.ItemBar(0,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 0
End With
.EndUpdate()
End With
|
|
1605
|
How can I change the colors for all bars at once
Dim h
With AxG2antt1
.BeginUpdate()
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.PaneWidth(False) = 64
.Debug = True
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"A")
.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"B1")
.AddBar(h,"Task",#1/8/2001#,#1/17/2001#,"B2")
.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K3")
.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K4")
.ItemBar(0,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 255
End With
.EndUpdate()
End With
|
|
1604
|
How can I show my custom bars in the histogram (method 3)
Dim h
With AxG2antt1
.BeginUpdate()
With .Chart
.LevelCount = 2
.AllowLinkBars = False
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
.FirstVisibleDate = #12/31/2000#
.HistogramVisible = True
.HistogramHeight = 64
.PaneWidth(False) = 128
With .Bars.Item("Task")
.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistCumulative
.HistogramItems = 6
.HistogramPattern = .Pattern
.HistogramCumulativeOriginalColorBars = EXG2ANTTLib.HistogramCumulativeOriginalColorBarsEnum.exKeepOriginalColor
.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsOffset
End With
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 2"),"Task",#1/3/2001#,#1/7/2001#)
h = .AddItem("Item 3")
.AddBar(h,"Task",#1/8/2001#,#1/12/2001#)
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 255
End With
.EndUpdate()
End With
|
|
1603
|
How can I show my custom bars in the histogram (method 2)
Dim h
With AxG2antt1
.BeginUpdate()
With .Chart
.PaneWidth(False) = 64
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 32
.Bars.Item("Task").HistogramPattern = EXG2ANTTLib.PatternEnum.exPatternBDiagonal
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 2"),"Task",#1/3/2001#,#1/7/2001#)
h = .AddItem("Item 3")
.AddBar(h,"Task",#1/8/2001#,#1/12/2001#)
.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 255
End With
.EndUpdate()
End With
|
|
1602
|
How can I show my custom bars in the histogram (method 1)
With AxG2antt1
.BeginUpdate()
With .Chart
.PaneWidth(False) = 64
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 32
.Bars.Item("Task").HistogramPattern = EXG2ANTTLib.PatternEnum.exPatternBDiagonal
With .Bars.Copy("Task","MyBar")
.HistogramPattern = EXG2ANTTLib.PatternEnum.exPatternFDiagonal
.Color = RGB(255,0,0)
.HistogramColor = .Color
End With
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 2"),"Task",#1/3/2001#,#1/7/2001#)
.AddBar(.AddItem("Item 3"),"MyBar",#1/8/2001#,#1/12/2001#)
End With
.EndUpdate()
End With
|
|
1601
|
Do you have any Fit-To-Page options when printing the control
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
With AxG2antt1
With .Items
.AddBar(e.item,"Task",.CellValue(e.item,2),.CellValue(e.item,4))
End With
End With
End Sub
Dim rs
With AxG2antt1
.BeginUpdate()
.ColumnAutoResize = False
.ContinueColumnScroll = False
rs = CreateObject("ADOR.Recordset")
With rs
.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
End With
.DataSource = rs
.Chart.FirstVisibleDate = #8/4/1994#
.EndUpdate()
With CreateObject("Exontrol.Print")
.Options = "FitToPage = On"
.PrintExt = AxG2antt1.GetOcx()
.Preview()
End With
End With
|